unit RelProdutos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
  TFormRelProdutos = class(TForm)
    RadioGroupRelatorio: TRadioGroup;
    RadioGroupOrdem: TRadioGroup;
    GroupBoxData: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBoxProduto: TGroupBox;
    Label4: TLabel;
    StaticTextCliente: TStaticText;
    QueryRelCliente: TQuery;
    QueryCliente: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioGroupRelatorioClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    procedure ImprimeProdutos;
    procedure ImprimePedProdutos;
  public
    { Public declarations }
  end;

var
  FormRelProdutos: TFormRelProdutos;
  sql,vordem:String;

implementation

uses QRelProdutos, Principal, QQtdePedProdutos;

{$R *.dfm}

procedure TFormRelProdutos.BitBtn1Click(Sender: TObject);
begin
if RadioGroupRelatorio.ItemIndex = 0 then
begin
ImprimeProdutos;
end;

if RadioGroupRelatorio.ItemIndex = 1 then
begin

//ImprimePedidos;
end;
end;

procedure TFormRelProdutos.ImprimeProdutos;
begin
if assigned(FormQRelProdutos) then
     FormQRelProdutos := nil;
  FormQRelProdutos := TFormQRelProdutos.Create(Self);


   with FormQRelProdutos do
   begin

   QRTitulo.Caption := FormPrincipal.vEmpresa;
   QRTitulo2.Caption := FormPrincipal.vEmpresa2;
   QREndereco.Caption := FormPrincipal.vEndereco;

   if RadioGroupOrdem.ItemIndex = 0 then
       vOrdem := 'codigo'
    else
       vOrdem := 'nm';

    sql := 'select familia_name(id_familia) as familia, produto.* from produto order by ' + vOrdem;

    QueryProduto.SQL.Clear;
    QueryProduto.SQL.Add(sql);
    QueryProduto.Close;
    QueryProduto.Open;
    
    //FormRelProdutos := TFormRelProdutos.Create(Self);
    FormQRelProdutos.QueryProduto.Open;
    FormQRelProdutos.QuickRep1.PreviewModal;
    FormQRelProdutos.QueryProduto.Close;

    //FormRelClientes.Close;
   end;
end;

procedure TFormRelProdutos.BitBtn2Click(Sender: TObject);
begin
self.close;
end;

procedure TFormRelProdutos.RadioGroupRelatorioClick(Sender: TObject);
begin

{if RadioGroupRelatorio.ItemIndex = 0 then
begin
   RadioGroupOrdem.Items.Clear;
   RadioGroupOrdem.Items.Add('Codigo');
   RadioGroupOrdem.Items.Add('Nome');
   end
else
begin
   RadioGroupOrdem.Items.Clear;
   RadioGroupOrdem.Items.Add('Codigo');
   //RadioGroupOrdem.Items.Add('Data do Pedido');
end;

RadioGroupOrdem.ItemIndex := 0;

GroupBoxData.Enabled := (RadioGroupRelatorio.ItemIndex = 1);
GroupBoxProduto.Enabled := (RadioGroupRelatorio.ItemIndex = 1);
 }

end;

procedure TFormRelProdutos.FormActivate(Sender: TObject);
begin
FormPrincipal.vProcProdId := 0;

DateTimePicker1.Date := now;
DateTimePicker2.Date := now;
end;

procedure TFormRelProdutos.ImprimePedProdutos;
begin
{if assigned(FormQtdePedProdutos) then
     FormQtdePedProdutos := nil;
  FormQtdePedProdutos := TFormQtdePedProdutos.Create(Self);


   with FormQtdePedProdutos do
   begin

   if RadioGroupOrdem.ItemIndex = 0 then
       vOrdem := 'produto';
    //else
     //  vOrdem := 'nm';

    sql := 'select familia_name(id_familia) as familia, produto.* from produto order by ' + vOrdem;

    QueryProduto.SQL.Clear;
    QueryProduto.SQL.Add(sql);
    QueryProduto.Close;
    QueryProduto.Open;

    //FormRelProdutos := TFormRelProdutos.Create(Self);
    FormQRelProdutos.QueryProduto.Open;
    FormQRelProdutos.QuickRep1.PreviewModal;
    FormQRelProdutos.QueryProduto.Close;

    //FormRelClientes.Close;
   end;

}
end;


end.
